home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / demo / mag / HDU_no9.lha / Prg / TB40.lha / TB4.0 / Install-TB < prev    next >
Encoding:
Text File  |  1998-02-11  |  4.4 KB  |  129 lines
  1. ;;############################################
  2. ;;# TB4.0 Install Script V 2.01              #
  3. ;;#                                          #
  4. ;;# By Stuart Kelly Copyright 1998 ©         #
  5. ;;#                                          #
  6. ;;# Created to replace old install program.  #
  7. ;;#                                          #
  8. ;;# Now has a fancy intro message            #
  9. ;;############################################
  10.  
  11. (procedure P_Wait (set X 1) ( (while (< X 100) (set X (+ X 1)) ) ) )
  12.  
  13. ;;##############################
  14. ;;# Fancy Introduction follows #
  15. ;;# By Stuart Kelly            #
  16. ;;# Copyright 1998 ©           #
  17. ;;##############################
  18. (procedure P_Intro
  19.   (
  20.    (set string1 "\n\nAmiga Arrow Productions\n\nPresents\n\nTelephone Book V 4.0")
  21.  
  22.    (working "A") (P_Wait)
  23.    (working "Am") (P_Wait)
  24.    (working "Ami") (P_Wait)
  25.    (working "Amig") (P_Wait)
  26.    (working "Amiga") (P_Wait)
  27.    (working "Amiga ") (P_Wait)
  28.  
  29.    (working "Amiga A")  (P_Wait)
  30.    (working "Amiga Ar")  (P_Wait)
  31.    (working "Amiga Arr")  (P_Wait)
  32.    (working "Amiga Arro")  (P_Wait)
  33.    (working "Amiga Arrow")  (P_Wait)
  34.    (working "Amiga Arrow ")  (P_Wait)
  35.  
  36.    (working "Amiga Arrow P")   (P_Wait)
  37.    (working "Amiga Arrow Pr")   (P_Wait)
  38.    (working "Amiga Arrow Pro")   (P_Wait)
  39.    (working "Amiga Arrow Prod")   (P_Wait)
  40.    (working "Amiga Arrow Produ")   (P_Wait)
  41.    (working "Amiga Arrow Produc")   (P_Wait)
  42.    (working "Amiga Arrow Product")   (P_Wait)
  43.    (working "Amiga Arrow Producti")   (P_Wait)
  44.    (working "Amiga Arrow Productio")   (P_Wait)
  45.    (working "Amiga Arrow Production")   (P_Wait)
  46.    (working "Amiga Arrow Productions")   (P_Wait)
  47.    (working "Amiga Arrow Productions\n\n")(P_Wait)
  48.  
  49.    (working "Amiga Arrow Productions\n\nP") (P_Wait)
  50.    (working "Amiga Arrow Productions\n\nPr") (P_Wait)
  51.    (working "Amiga Arrow Productions\n\nPre") (P_Wait)
  52.    (working "Amiga Arrow Productions\n\nPres") (P_Wait)
  53.    (working "Amiga Arrow Productions\n\nPrese") (P_Wait)
  54.    (working "Amiga Arrow Productions\n\nPresen") (P_Wait)
  55.    (working "Amiga Arrow Productions\n\nPresent") (P_Wait)
  56.    (working "Amiga Arrow Productions\n\nPresents") (P_Wait)
  57.    (working "Amiga Arrow Productions\n\nPresents\n\n") (P_Wait)
  58.  
  59.    (working "Amiga Arrow Productions\n\nPresents\n\nT") (P_Wait)
  60.    (working "Amiga Arrow Productions\n\nPresents\n\nTe") (P_Wait)
  61.    (working "Amiga Arrow Productions\n\nPresents\n\nTel") (P_Wait)
  62.    (working "Amiga Arrow Productions\n\nPresents\n\nTele") (P_Wait)
  63.    (working "Amiga Arrow Productions\n\nPresents\n\nTelep") (P_Wait)
  64.    (working "Amiga Arrow Productions\n\nPresents\n\nTeleph") (P_Wait)
  65.    (working "Amiga Arrow Productions\n\nPresents\n\nTelepho") (P_Wait)
  66.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephon") (P_Wait)
  67.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone") (P_Wait)
  68.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone ") (P_Wait)
  69.  
  70.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone B") (P_Wait)
  71.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Bo") (P_Wait)
  72.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Boo") (P_Wait)
  73.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book") (P_Wait)
  74.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book ") (P_Wait)
  75.  
  76.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book V") (P_Wait)
  77.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book V ") (P_Wait)
  78.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book V 4") (P_Wait)
  79.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book V 4.") (P_Wait)
  80.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book V 4.0") (P_Wait)
  81.  
  82.    (working "Amiga Arrow Productions\n\nPresents\n\nTelephone Book V 4.0") (P_Wait)
  83.    (message string1)
  84.   )
  85. )
  86.  
  87.  
  88. (complete 0)
  89.  
  90. (working (P_intro))
  91.  
  92. (welcome "TB4.0 Install V 2.01")
  93.  
  94. (message "\n\nTB4.0 Install\n\nBy Stuart Kelly\n\nCopyright 1998 ©\n\nE-Mail\n\nstuart@dkelly1.demon.co.uk")
  95.  
  96. (complete 1)
  97.  
  98. (set path
  99.          (askdir
  100.                (prompt "Install TB4.0 Where?  TB4.0 will not create a drawer")
  101.                (help @askdir-help)
  102.                (default "Ram:")
  103.          )
  104. )
  105.  
  106. (complete 10)
  107.  
  108. (message "\n\nInstall TB4.0 to\n\n '" path "' \n\nPress Abort To Cancel")
  109.  
  110. (complete 20)
  111.  
  112. (copyfiles
  113.           (source "")
  114.           (dest path)
  115.           (all)
  116.           (infos)
  117. )
  118.  
  119. (complete 100)
  120.  
  121. (exit
  122.      (cat
  123.          "\n\nTB4.0 Installed To \n\n '" path "'."
  124.      )
  125.      (quiet)
  126. )
  127.  
  128. ; EOF
  129.